1 Imports System.IO
2
3 Public Class frmSystemInfo
4
5 Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6 Try
7 Dim i As System.Management.ManagementObject
8 Dim searchInfo_Processor As New System.Management.ManagementObjectSearcher("Select * from Win32_Processor")
9 For Each i In searchInfo_Processor.Get()
10 txtProcessorName.Text = i("Name").ToString
11 txtProcessorID.Text = i("ProcessorID").ToString
12 txtProcessorDescription.Text = i("Description").ToString
13 txtProcessorManufacturer.Text = i("Manufacturer").ToString
14 txtProcessorL2CacheSize.Text = i("L2CacheSize").ToString
15 txtProcessorClockSpeed.Text = i("CurrentClockSpeed").ToString & " Mhz"
16 txtProcessorDataWidth.Text = i("DataWidth").ToString
17 txtProcessorExtClock.Text = i("ExtClock").ToString & " Mhz"
18 txtProcessorFamily.Text = i("Family").ToString
19 Next
20 Dim searchInfo_Board As New System.Management.ManagementObjectSearcher("Select * from Win32_BaseBoard")
21 For Each i In searchInfo_Board.Get()
22 txtBoardDescription.Text = i("Description").ToString
23 txtBoardManufacturer.Text = i("Manufacturer").ToString
24 txtBoardName.Text = i("Name").ToString
25 txtBoardSerialNumber.Text = i("SerialNumber").ToString
26 Next
27 Catch ex As Exception
28 MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
29 End
30 End Try
31 End Sub
32
33 Private Sub SaveToFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToFileToolStripMenuItem.Click
34 Try
35 Dim fs As New FileStream("temp.txt", FileMode.Create, FileAccess.Write)
36 Dim w As New StreamWriter(fs)
37 w.Write("****** Processor Information ******")
38 w.WriteLine()
39 w.WriteLine()
40 w.WriteLine("Name")
41 w.WriteLine(txtProcessorName.Text)
42 w.WriteLine()
43 w.WriteLine("ID")
44 w.WriteLine(txtProcessorID.Text)
45 w.WriteLine()
46 w.WriteLine("Description")
47 w.WriteLine(txtProcessorDescription.Text)
48 w.WriteLine()
49 w.WriteLine("Manufacturer")
50 w.WriteLine(txtProcessorManufacturer.Text)
51 w.WriteLine()
52 w.WriteLine("L2 Cache Size")
53 w.WriteLine(txtProcessorL2CacheSize.Text)
54 w.WriteLine()
55 w.WriteLine("Clock Speed")
56 w.WriteLine(txtProcessorClockSpeed.Text)
57 w.WriteLine()
58 w.WriteLine("Data Width")
59 w.WriteLine(txtProcessorDataWidth.Text)
60 w.WriteLine()
61 w.WriteLine("Ext Clock")
62 w.WriteLine(txtProcessorExtClock.Text)
63 w.WriteLine()
64 w.WriteLine("Family")
65 w.WriteLine(txtProcessorFamily.Text)
66 w.WriteLine()
67 w.WriteLine("****** MotherBoard Information *****")
68 w.WriteLine()
69 w.WriteLine("Name")
70 w.WriteLine(txtBoardDescription.Text)
71 w.WriteLine()
72 w.WriteLine("Manufacturer")
73 w.WriteLine(txtBoardManufacturer.Text)
74 w.WriteLine()
75 w.WriteLine("Description")
76 w.WriteLine(txtBoardDescription.Text)
77 w.WriteLine()
78 w.WriteLine("Serial Number")
79 w.WriteLine(txtBoardSerialNumber.Text)
80 w.Flush()
81 w.Close()
82 With SaveFileDialog1
83 .AddExtension = True
84 .OverwritePrompt = True
85 .DefaultExt = "txt"
86 .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
87 .FileName = "SystemInfo"
88 .Filter = "Text files (*.txt)|*.txt|All files|*.*"
89 .FilterIndex = 1
90 .Title = "SystemInfo - Save file"
91 If .ShowDialog() = Windows.Forms.DialogResult.OK Then
92 My.Computer.FileSystem.MoveFile("temp.txt", .FileName, True)
93 End If
94 End With
95 Catch ex As Exception
96 MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
97 End Try
98 End Sub
99
100 Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
101 Close()
102 End Sub
103 End Class
